val get_dims : Sdlvideo.surface -> int * int
val sdl_init : unit -> unit
val wait_key : unit -> unit
val show : Sdlvideo.surface -> Sdlvideo.surface -> unit
val filtreRouge : Sdlvideo.surface -> int -> int -> bool
val diago : Sdlvideo.surface -> int -> int -> unit
val diagonal : Sdlvideo.surface -> int -> unit
val horivert : Sdlvideo.surface -> int -> unit
val listedepoints : Sdlvideo.surface -> (int * int) list
val main : string -> string -> int -> 'a -> unit -> (int * int) list
